www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_select_a_label_f_fenlei_id.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="css.css" type=text/css rel=stylesheet> <% dir_set="../" %> <!--#include file=../inc/conn.asp--> <!--#include file=../inc/Functionb.asp--> <!--#include file=inc/checkadmin1.asp--> <!--#include file=../inc/ajaxLIB.asp--> <!--#include file=../inc/functionFiless.asp--> <!--#include file=../inc/ND_class_function.asp--> <% AJAXshowLoader() %> <% %> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1;word-break:break-all;border: 1px dashed #999999;left: 3px; top: 10px; height: 50px;width:730px"> <%if request("sttep")="" then%> <form action="D_select_a_label_f_fenlei_id.asp?sttep=2" method=post> 请选择 从cms内容管理子系统读频道数据 还是从企业站子系统里读频道数据:<br> <input type=radio value="0" name=isqiye checked>从cms内容管理子系统里读频道数据<br> <input type=radio value="1" name=isqiye>从企业站子系统里读频道数据<br> <input type=submit value="下一步"> </form> <%end if%> <%if request("sttep")="2" then%> <table border="1" cellpadding="0" cellspacing="0" style="word-break:break-all" width=650 > <% nooo=0 CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if isqiye=request("isqiye") sql="select * from [ND_channel] where is_qiye="&isqiye&" order by clng(orders) asc" maxperpage=22 '获取自身文件名 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?sttep=2&isqiye="&trim(request("isqiye"))&"&data2="&trim(request("data2")) set Rs=server.CreateObject("adodb.recordset") Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to maxperpage %> <% if rs.eof then exit for %> <tr> <td style="word-break:break-all" width=650> 频道名:<%=rs("name")%> <%if rs("lanmu_type")<>"other" and rs("lanmu_type")<>"guestbook" and rs("lanmu_type")<>"wdan_Article" and rs("lanmu_type")<>"info_feedback" then%> <%if rs("lanmu_type")<>"job" and rs("lanmu_type")<>"buy" and rs("lanmu_type")<>"askprod" then%> ,<input type=button onclick="hpp('<%=rs("sys_content_type_name")%>','<%=rs("lanmu_type")%>')" value="进入此频道来选择其中的一个分类"> <%end if%> <%end if%> </td> </tr> <% rs.movenext next %> <% else nooo=1 %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>未找到……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> <tr> <td colspan="7" align="center" height="50" > <input type=button value="上一步" onclick="history.go(-1);"> </td> </tr> </table> <%end if%> <%if request("sttep")="3" then%> <table border="1" cellpadding="0" cellspacing="0" style="word-break:break-all" width=650 > <% nooo=0 CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if ctype=lcase(request("ctype")) if ctype="article" then biao="[ND_Article_class]" if ctype="down" then biao="[ND_down_class]" if ctype="pic_or_sp" then biao="[ND_pic_or_sp_class]" if ctype="cp" then biao="[ND_prod_class]" if ctype="dan_article" then biao="[ND_danArticle_class]" sql="select * from "&biao&" where sys_content_type='"&request("pdid")&"' order by clng(deepth) asc,clng(orders) asc" maxperpage=22 '获取自身文件名 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?sttep=3&pdid="&trim(request("pdid"))&"&ctype="&trim(request("ctype")) set Rs=server.CreateObject("adodb.recordset") Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to maxperpage %> <% if rs.eof then exit for %> <tr> <td style="word-break:break-all" width=650> 分类名:<%=rs("classname")%>, 分类的id为:<input type=text value="<%=rs("id")%>" id="zz<%=rs("id")%>"><input type=button onclick="cpp('zz<%=rs("id")%>')" value="复制此分类id"> </td> </tr> <% rs.movenext next %> <% else nooo=1 %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>未找到……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> <tr> <td colspan="7" align="center" height="50" > <font color=#ff0000 style="font-size:14px"> 给 某个标签参数设置具体值时要注意引号的使用,如果给某个标签参数设置具体值为 article_id35 后编译运行出错或出现异常(比如调不出内容,总显示为空),此时把这个标签参数具体值设置为"article_id35"看看,即加个引号 ,或者如果因为有引号而编译运行出错,则去掉引号再编译运行看看 <br> dreamweaver里编辑一个模板等时,如果在设计模式下而不是在代码模式下输入了 "号 到标签参数里或复制某个含"号的标签过来,会出错,因为 "号会被自动转为& quot;再放到代码里,所以要在代码模式下输入"号才行,不然出错 </font> <br> <input type=button value="上一步" onclick="history.go(-1);"> </td> </tr> </table> <%end if%> </div> <script language=javascript> function cpp(iid){ var tty=document.getElementById(iid).value; window.clipboardData.setData("Text",tty); alert("复制成功,请右键粘贴到 某个参数的 输入框里. \n\n给 某个标签参数设置具体值时要注意引号的使用,如果给某个标签参数设置具体值为 article_id35 后编译运行出错或出现异常(比如调不出内容,总显示为空),此时把这个标签参数具体值设置为\"article_id35\"看看,即加个引号\n,或者如果因为有引号而编译运行出错,则去掉引号再编译运行看看\n,dreamweaver里编辑一个模板等时,如果在设计模式下而不是在代码模式下输入了 \"号 到标签参数里或复制某个含\"号的标签过来,会出错,因为 \"号会被自动转为"再放到代码里,所以要在代码模式下输入\"号才行,不然出错"); window.close(); } </script> <script language=javascript> function hpp(iid,tt){ self.location="D_select_a_label_f_fenlei_id.asp?sttep=3&pdid="+iid+"&ctype="+tt; } </script> <script language=javascript> AJAXfade(1,'l_list'); </script> <% AJAXcloseLoader() %>